home *** CD-ROM | disk | FTP | other *** search
/ Shareware Grab Bag / Shareware Grab Bag.iso / 007 / as02.arc / MAKDIR.ASM < prev    next >
Encoding:
Assembly Source File  |  1984-10-11  |  1.1 KB  |  38 lines
  1. re_name equ    39h    ;Rename a file function call
  2. doscall equ    21h    ;DOS interrupt number
  3. cseg    segment  'CODE'         ;define code segment
  4. ;---------------------------------------------------------------------
  5.  
  6.    assume cs:cseg
  7.    public makdir
  8. makdir    proc far    ;main part of program
  9.  
  10.  
  11.  
  12. ;set up stack for return
  13.     push bp     ;save for return
  14.     mov  bp,sp    ;set base for passed names
  15.     push ds     ;save old data segment
  16.     push es     ;save for return
  17.  
  18.  
  19. ;MAIN PART OF PROGRAM.
  20. ;DX points to path to directory
  21.  
  22.     mov  si,[bp+6]         ;get address of second parameter
  23.     mov  ax,[si+2]         ;get actual address of string
  24.     mov  dx,ax         ;location of old name put in DX
  25.     mov  ah,re_name      ;rename function number
  26.     int  doscall         ;Call DOS
  27.  
  28.     pop  es
  29.     pop  ds
  30.     pop  bp
  31.     ret  2            ;return to calling program
  32.                 ;   ( parameter passed)
  33. makdir    endp            ;end of main part of program
  34. ;---------------------------------------------------------------------
  35. cseg    ends        ;end of code segment
  36. ;*********************************************************************
  37.     end        ;end of assembly
  38.